Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Tools.Dxr/Internal_1_Tools startmovie script.ls

Text File | 1998-05-04 | 1.7 KB | 41 lines

global gMasterData, balloonSprite, checkMarks2, gHandCursor, gFingerCursor

on startMovie
  setModule(gMasterData, #tools)
  setSoundList(gMasterData, ["22": 0, "23": 0, "24": 0, "25": 0, "26": 0, "27": 0, "28": 0, "29": 0, "30": 0, "31": 0, "32": 0, "33": 0, "34": 0, "35": 0, "36": 0, "37": 0, "38": 0, "39": 0, "40": 0, "41": 0, "42": 0, "43": 0, "43B": 0, "44": 0, "45": 0, "46": 0, "46B": 0, "47": 0, "48": 0, "49": 0, "50": 0, "51": 0, "52": 0, "53": 0, "54": 0, "55": 0, "56": 0, "57": 0])
  if voidp(checkMarks2) then
    set checkMarks2 to [#race: 0, #self: 0, #nonpro: 0, #chefBook: 0, #stages: 0, #plot: 0, #paper: 0]
  end if
  set gHandCursor to [member "hand cursor", member "hand mask"]
  set gFingerCursor to [member "finger cursor", member "finger mask"]
  set balloonSprite to 45
  setFingerCursor(#on, [39, 40, 41, 42, 43, 44])
  initFields()
  keepLittleSounds()
  set the keyDownScript to "quitCatcher"
  cursor(0)
end

on initFields
  set vEmptyList to ["memo 1", "memo 2", "memo 3", "chef field A", "chef field 1", "chef field 2", "chef field 3", "chef field 4", "situation", "paper negative", "paper positive", "affirmation", "responses", "chef answers", "plot results", "toss results", "PrintAllPart2"]
  repeat with X in vEmptyList
    set the text of member X to " "
    set the textFont of member X to "Palatino"
    set the textSize of member X to 14
    set the text of member X to EMPTY
  end repeat
  set the text of member "self statement" to " "
  set the textSize of member "self statement" to 18
end

on quitCatcher
  if the commandDown and ((the key = "q") or (the key = ".")) then
    stopSounds()
    if iAmActivated(gMasterData) then
      getAllPart2()
    end if
    go("quit", "Menu")
  end if
  pass()
end